home *** CD-ROM | disk | FTP | other *** search
/ ProGames 6 / PROGAMES.iso / player.dxr / 00018_Resize intro logo Behaviour .ls < prev    next >
Encoding:
Text File  |  2003-06-22  |  492 b   |  20 lines
  1. property my
  2.  
  3. on beginSprite me
  4.   my = sprite(me.spriteNum)
  5.   memberHeight = my.member.height
  6.   memberwidth = my.member.width
  7.   if memberwidth <> 300 then
  8.     divide = memberwidth.float / 300
  9.     memberwidth = memberwidth / divide
  10.     memberHeight = memberHeight / divide
  11.   end if
  12.   if memberHeight > 300 then
  13.     divide = memberHeight.float / 300
  14.     memberwidth = memberwidth / divide
  15.     memberHeight = memberHeight / divide
  16.   end if
  17.   my.width = memberwidth
  18.   my.height = memberHeight
  19. end
  20.